home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / H191.ZIP / CA29-3.EXE / CONNECT.CMD < prev    next >
OS/2 REXX Batch file  |  1993-03-17  |  3KB  |  115 lines
  1. ; ----- CONNECT: Autoanswer script
  2. ; ----------------------------------------------------------------
  3. ;    Note: This script waits for a received call.  It auto-bauds
  4. ;    according to the modem's CONNECT response.  It initializes
  5. ;    COM-AND to chat mode, CR -> CRLF, and CLOGs the fact.
  6. ; ----------------------------------------------------------------
  7. ;    Note: The hard coded autoanswer command here may need
  8. ;    recoding according to your modem.
  9. ; ----------------------------------------------------------------
  10. ;
  11. ;    Initialize
  12. ;
  13.     ON ESCAPE GOSUB EXIT        ; Escape pressed
  14.     SET PARITY NONE         ; Turn off parity
  15.     SET DATA 8            ; Set 8 databits
  16.     SET MASK ON            ; Mask received text to 7 bits
  17. ;
  18. ;    Go into auto answer (echo off, answer on 2nd)
  19. ;    .. Also: Return result codes, word form, with CONNECT 1200
  20. ;
  21. Restart:
  22.     LEGEND " Waiting for call"
  23.     Pause 3             ; Wait 3 seconds
  24.     HANGUP                ; HANGUP and leave modem in cmd mode
  25.     PAUSE 3             ; Wait 3 secs
  26.     MESSAGE "^MWaiting..."
  27.     TRANSMIT "ATE0Q0V1X1S0=2 S7=30 S9=10^M"
  28. ;
  29. ; -----------------------------------------------------------------------
  30. ; ----- Wait for a connect
  31. ; -----------------------------------------------------------------------
  32. ;
  33. Wait_Connect:
  34.     RGET S9 80 180            ; Wait for a line
  35.     IF NOT SUCCESS            ; If nothing was read
  36.        GOTO Wait_Connect
  37.        ENDIF
  38.  
  39.     FIND S9 "NO CARRIER"            ; Look for a disconn
  40.     IF FOUND
  41.        GOTO Restart
  42.        ENDIF
  43.  
  44.     FIND S9 "CONNECT"               ; Anything else BUT CONNECT
  45.     IF NOT FOUND            ; .. waits
  46.        GOTO Wait_Connect
  47.        ENDIF
  48.  
  49. ;***    IF NOT CONNECTED        ; SOme modems aren't fast enough
  50. ;***       GOTO Wait_Connect        ; .. to set this right away
  51. ;***       ENDIF
  52. ;
  53. ; -----------------------------------------------------------------------
  54. ; ----- Change baud rate according to connect (unles Alt-O flag is set)
  55. ; -----------------------------------------------------------------------
  56. ;
  57.     IF FIND "_DDOVER" "ON" GOTO Finish
  58.  
  59.     IF FIND S9 "1200"               ; Test for 1200 baud
  60.        SET BAUD 1200        ; Set to 1200 baud
  61.        GOTO Finish            ; We're done.
  62.        ENDIF
  63.  
  64.     IF FIND S9 "2400"               ; Test for 2400 baud
  65.        SET BAUD 2400        ; Set to 2400 baud
  66.        GOTO Finish            ; We're done.
  67.        ENDIF
  68.  
  69.     IF FIND S9 "4800"
  70.        SET BAUD 4800        ; Set to 2400 baud
  71.        GOTO Finish            ; We're done.
  72.        ENDIF
  73.  
  74.     IF FIND S9 "9600"               ; Test for 9600 baud
  75.        SET BAUD 9600        ; Set to 9600 baud
  76.        GOTO Finish            ; We're done.
  77.        ENDIF
  78.  
  79.     IF FIND S9 "14400" or FIND S9 "14.4"
  80.        SET BAUD 14k         ; Set to new rate
  81.        GOTO Finish            ; We're done.
  82.        ENDIF
  83.  
  84.     IF FIND S9 "19200" or FIND S9 "19.2"
  85.        SET BAUD 19k         ; Set to new rate
  86.        GOTO Finish            ; We're done.
  87.        ENDIF
  88.  
  89.     IF FIND S9 "38400" or FIND S9 "38.4"
  90.        SET BAUD 38k         ; Set to new rate
  91.        GOTO Finish            ; We're done.
  92.        ENDIF
  93.  
  94.     IF FIND S9 "57600" or FIND S9 "57.6"
  95.        SET BAUD 57k         ; Set to new rate
  96.        GOTO Finish            ; We're done.
  97.        ENDIF
  98. ;
  99. ;    None of the above... set to 300
  100. ;
  101.     SET BAUD 300            ; Set to 1200 baud
  102. ;
  103. ;    Exit - set-up for conversational mode
  104. ;
  105. Finish:
  106.     SET CHAT ON            ; Set chat mode
  107.     SET CR CR_LF            ; Incoming Cr's as CRLF
  108.     CLOG "* Auto-answer"            ; Log it
  109.     ALARM                ; Sound alarm
  110. ;
  111. ;    The exit is separately labelled to allow ESC to terminate quickly
  112. ;
  113. Exit:
  114.     EXIT
  115.